Crowd4SDG Reg. Form - Gear 2

library(ggplot2)

source("custom_functions.R")

load("../processed data/registration.RData")

Bar Plots

reg$age = floor(as.numeric(difftime(as.Date("2022-04-01"), as.Date(reg$birthday, tryFormats = c("%m/%d/%Y")), unit="weeks"))/52.25)

fields = c("gender" = "gender", "country of origin" = "country_orig", "country of residence" = "country_resid", "background" = "background", "communication" = "communication", "exante_data" = "exante_data", "tools" = "tools", "exante_knowledge" = "exante_knowledge", "exante_project_type" = "exante_project_type", "exante_project_sdg" = "exante_project_SDG", "team_project_sdg" = "team_project_SDG","occupation" = "occupation")

#fields = c(6,7,8,13,14,17,21,24,27,29,40)

pdf("../figures/bars_registration.pdf", width = 20, height = 10)

for (i in fields)
{
  temp = reg[,c("ID", i)]
  proc = clean_split_mcq(temp)
  
  plt = ggplot(proc[!is.na(proc$variable),], aes(y = forcats::fct_rev(forcats::fct_infreq(variable)))) + geom_bar(stat = "count", width = 0.9) + theme_minimal(base_size = 25) + xlab("Count") + theme(axis.line = element_line(colour = "black"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.background = element_blank()) + ylab(names(fields[fields == i])) + geom_text(stat='count', aes(label=..count..), size = 6, hjust=-1)
  
  print(plt)
  
}

dev.off()

null device 
          1 

Bipartite Networks

pdf("../figures/proj_net_registration.pdf")

for (i in fields[4:12])
{
  temp = reg[,c("ID", i)]
  proc = clean_split_mcq(temp)
  proj = biproj_custom(proc)
  
  plotNetwork(proj[[1]], maine = i, label = V(proj[[1]])$names)
}

Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length
Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length
Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length
Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length
Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length
Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length
Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length
Warning in vattrs[[name]][index] <- value :
  number of items to replace is not a multiple of replacement length

dev.off()

null device 
          1 

Age Distribution

temp = reg[,c("ID", "age")]
  
plt = ggplot(temp, aes(x = sort(age))) + geom_bar(stat = "count", width = 0.9) + theme_bw(base_size = 25) + xlab("Count") + ylab(" ") + theme(axis.line = element_line(colour = "black"), panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.background = element_blank()) +  geom_text(stat='count', aes(label=..count..), vjust=-1) + xlab("Age") + ggtitle("Participant Age Distribution")
  
print(plt)

ggsave(plt, filename = "../figures/reg_age.png", width = 7, height = 7)

By Team